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DAICLIC INFOS : 

DAICLIC parait tous les trois mois. 

l'abonnement est compris dans la cotisation annuelle à 
1.0.C.Bordeaux et à D.C.A. Cdu 1/1 au 31/12). A 
l'inscription, les numéros déjà parus dans l’année sont 
envoyés. 


International DAI Club Bordeaux C/0 Bruno Delannay 
Res. Les Acacias Bt.B3, Avenue de Saige 
33600 PESSAC (FRANCE) tel : S56.45.87.70. 


Dai Computer Association C/0 D'ARANTES Luc 
10 D Res. Sainte Marie, 6 Chemin Sainte Marie 
30200 BAGNOLS sur CEZE (FRANCE) 

tel : 66.89.57.60 


ACTIONS RESPECTIVES de I.D.C.Bordeaux et D.C.A. : 


ZI. .D.C.8x . £ 

# Edition de la revue + Achat de Logiciels 

# Librairie + Bibliothèque + Service Listing 
#* Réparations des DAI , DCR et Ken-Dos 

# Logithéque Ken-Dos , DCR , K7 audio 


D.C.A. 
# Créations et réalisations de cartes HARD 
# Logithéque VC 1541 Allemand 
HAODALITES D’ _ADHESION 
200 FF pour la France Metropolitaine 
235 FF pour la C.E.E. 


Pour tout paiement :par chèque ou mandats 
Pour _l’étranger : uniquement par mandat postal international 
Rédigés au nom du président trésorier Mr. DELANNAY Bruno. 


Par virement sur le compte du Club : 
Banque Crédit Lyonnais , 247 Cours GAMBETTA ,33 400 Talence 
Intitulé : International Dai Club Bordeaux , No = 79 233 H 


FRAIS POSTAUX : (l En cas d’achats groupés 
| 
FRANCE EUROPE | T1 + Ti = T2 
l T1 + Te = TS 
T1 100g 3,50 FF 7,60 FF l T2 + T2 = T3 
T2 250g 7,10 FF 14,30 FF l T2 + T3 = T4 
T3 500g 10,30 FF 27,30 FF l T3 + T3 = T4 
T4 1Kg 14,60 FF 47,80 FF l 
COPYRIGAT 
Les articles publiés n'engagent que la responsabilité de 
leur auteur. Toute reproduction, même partielle, de ce 
magazine est interdite sans l’accord de l'éditeur 


responsable. 


AVIS AUX KEN__— _DOSSEURS 


DE TRES GAOS PRAROBLEMES 
D sé APPROVISIONNEMENT EN 
C . ZL - 8877. A FUYJITSU 


Cesontrolleur des disquettes) 
M ONT OBLIGE A UN ACHAT 


DE PLUSIEURS DE CES CIRCUITS 


IL M'EN RESTE QUELQUES UNS A 


VENDRE ._. 


MISE _A_ PAIX z 


138FF port oompris . 
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Diverses remarques 


D'abord un appel à tous pour envoyer des articles 1! Il ne 
reste plus une seule page à paraitre, et si la situation ne 
s’arrage pas pendant cet été, le prochain numéro de la revue 
sera plus que pauvre !! 


Ensuite, je prie d’excuser le temps de plus en plus long mis 
à vous répondre : parfois un mois pour certains, mais il 
faut savoir que je suis désormais seul à Bordeaux à assurer 
les différentes activités : élaboration de la maquette de la 
présente revue, démarches auprès des imprimeurs, envoi 
postal, service télématique, réparations des DAI, Logithèque, 
Librairie etc... et tout ceci me prens un temps pas 
possible. 


Vous pouvez constater dans le présent numéro l'apparition 
d'articles envoyés par certains de nos membres Allemands. Ne 
parlant pas un traitre mot de cette langue, je les publie 
tels quels. 

Les personnes désirant des précisions sur ces articles ou 
les possibilités d'achat des interfaces décrites (et bien 
d’autres) sont priées de contacter: 

Mr.Hardy STROBEL, Neuselsbrunn 51, 8500 nürnberg 50, 

tel. (0911) 86.30.80 soit en Allemand soit en Anglais. 


Et pour notre service télématique !! (vous en conaissez 
beaucoup des petits clubs qui ont un service télématique 
accessible en 3615 ?) 


ALIENOR nous ouvre enfin ses portes !! tous ceux qui ont 
demandé un code d'accés gratuit le recevront dans quelques 
jours à peine. Déjà des informations sont chargées, vous 
pourez me contacter directement dans ma BAL, je vous 
répondrait en priorité. 


J'attends vos suggestions sur les infos que vous désirez 
trouver concernant votre club. 


A dans trois mois , et bonnes vacances 
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s Le MUST des logiciels GRATUITS s 
t | = 


mustmustmustmustmustmustmustmustmustmustu 


Si vous désirez un de ces logiciels 
Il vous suffit d'envoyer votre demande à I.0.C.Bordeaux. 


Pour éviter les grandes pertes de temps dues à la copie de 
ces programmes , ils sont d'ores et déjà enregistrés sur K? 
audio préts à être envoyés , le tout vous étant proposé à 
prix coutant !I!1! 


Donc pour chaque programme demandé , envoyer avec votre 
demande un chèque de 45FF destiné à couvrir le prix de la K?7 
de l’enveloppe ,de l’éventuelle copie du mode d’emploi et 
des frais d'envoi. 


NOUVEAU CE TAIMESTARE s 
Dans la série + UTILITAIRES God 


a) BOURSICOTAGE : 

Il permet de stocker, comparer, surveiller et représenter 
sous forme de graphisme des actions boursières. 
Indispensable de nos jours... 


Language = Basic adapté Ken:-Dos ou DCA (préciser la version voulue) 


b) THEME ASTRAL : 

Il calcule tous les paramètres de vos positions planétaires, 
et vous dessine votre carte du ciel. Très bien fait et 
précis. 

Dans la série %#* DESSIN + 

Une compilation des plus belles images sur le DAI dont la 
plupart des images digitalisées par caméra vidéo 
surprenant et agréable. 

Dans la série + JEU X ++ 

a) DEFESDER : 


Un jeu d'arcade rapide et haut en couleurs. Un classique qui 
vous distraira des heures. 


DEJANUVU s 


1/CO0MMUNICATION 3 


a)L' EAULATEUR HAINITEL : 


Auteur + Sébastien Dubourg 
Language = Source assembleur en SPL ,; ou en LM 


b) ZATERDAI : 


Auteur “« Sébastien Dubourg 
Language = Source assembleur en SPL ,; ou en LM 


2/DESSIN É 


a) GRAPHIDEO : 


Auteur - à 
Language = LM + Basic 


b) CLIO : 


Auteur - Multisoft 
Language = LM + Basic 


3/UTILITATIRES : 


a) COPY K7 <==) DCR : 

Auteur = Sébastien Dubourg et Bruno Delannay 
Language = Source assembleur en SPL , ou en LM 
b) COPIEUR UNIVERSEL : 


Auteur - Sébastien Dubourg 
Language = Source assembleur en SPL , ou en LM 


c) COPIEUR KENDOS : 


Auteur - ? 
Language = LM 


d) SUPERDIRECTORY : 


Auteur = Sébastien Dubourg 
Language = Source assembleur en SPL , ou en LM 


4/TRAITEMENT DE TEXTE 


DAIWORDST AR : 


Auteur = Uwe Wienkop (auteur de l’exellent SUPERBASE) 
Language = LM préciser version 


Fourni avec les 12 pages correspondant à la version 
Française de ce programme. 


S/%# JEUX _# Ê 


a) OTHELLO DAIHOND : 

Auteur - 

Language = LM 

b) ULTIME PLANETE : 

Fourni avec son mode d’emploi de 6 pages 
Auteur “= Eric Dubreuil 

Language = LM + Basic 

c) EXPANSION : 

Fourni avec son mode d’emploi de 3 pages 
Auteur “= Eric Dubreuil 

Language = LM + Basic 

d) SYAORGIA : 

Auteur = Mr.Stransky 

Language = Basic 

e) GRIAAR : 


Auteur = Mr.Stransky 
Language = Basic 


Nous essaierons de préparer pour chaque revue de nouveaux 
logiciels d'accés gratuit afin de diffuser au maximum cette 
pratique. 


Demandes à edresser è . 
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### Rappelons les livres proposés 


Le secteur bibliothèque du club se développe grace à la 
coopèration de l’un de nosmembres qui a traduit de l’Anglais 
en Français , de façon très professionelle, le manuel 


complet du KEN-D0S. 


#En raison du don bénévolle de ce travail au club , ce livre 


vous est offert à prix coutant pour le prix de 40FF port 
non compris. * * MANUEL KEN-D0S en FRANCAIS *# # 


(pour le port rajouter le tarif postal T2) 


#Vu le nombre des demandes , une réédition du ‘TOS 
COMMENTE’ a été faite.Que tous ceux qui n'avaient pu 
l'obtenir l'an dernier me réécrivent. Le prix lui n’a pas 
augmenté : 150FF 

(pour le port rajouter le tarif postal T2) 


#*Toujours disponibles : le livre indispensable au 
programmeur en assembleur ,du club FLAMMAND associé DAINAMIC 
Le FIRMWARE MANUEL écrit en Anglais: 250FF 

(pour le port rajouter le tarif postal T2) 


Et les deux tomes de ‘Apprendre à programmer sur le DAI'’ 
50FF pièce 
(pour le port rajouter le tarif postal T2) 


NOUVEAU FONCTIONNEMENT DE LA SOFTHEQUE VC 1541, 


Fort de l’expérience acquise auprès d’une association proposant les logi- 
ciels du domaine public pour Apple, je propose le fonctionnement de la softhèque 
VC1541 suivant : 

Le demandeur sélectionne la disquette contenant le programme désiré et envol 
un chèque de 50 FF (pour la première disquette de la commande, 30 FF pour les 
suivantes) comprenant le prix du support, l’emballage et les frais d’expédition, 
au trésorier de DCA. 

En retour, vous recevrez une disquette contenant tous les programmes, de la 
disquette DCA où se trouvait celui que vous désiriez. 


RAPPEL : la softhèque DCA est composé d’environ 150 FACES de disquettes. 
Les programmes sont classés par Thème. 


DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA 
HE EXCEPTIONNEL 444% EXCEPTIONNEL ##4##4##EXCEPT I ONNEL####4#EXCEPTIONNEL#%3#46#44 


2> DCA SOLDE : << 
* TOUTE LA SOFTHEQUE VC1541 POUR 550 FF (*). 


# MICROCASSETTES CERTIFIEES DIGITALES : 
Ces microK7 ont surtout servi de copie de sauvegarde et sont pratiquement neuves 
(utilisation de Kendos et VC1541 oblige ! ) 
- 3 lots de 10 K7 digitales + 2 non digitales : 300 FF (*).@ Qt 
ou 


- 5 K7 digitales + 1 pour : 165 FF (°) 
ou 
- 35 FF pièce (°) 
Ê # : 
- Firmware Manuel : 2 exemplaires photocopiés : 90 FF (*). 


- livre 8080-8085 langage assembleur : 90 FF (*). 
par L.A. LEVENTHAL (prix neuf : 215 FF) 


- livre Le hardsoft ou |a pratique des microprocesseurs : 60 FF (*). 
par M.OUAKINE et R.POUSSIN (prix neuf : 130 FF) 


Ces ouvrages étalent en consultation gratuite, au sein du club. 
L’exemplaire original du Firmware manuel est devenu inutilisable (trop abtmé) et 
ce sont deux des trois copies de sauvegarde que nous cedons. 


(*) frais de port, au moment de la commande. 


#44 EXCEPTIONNEL ###3###EXCEPTIONNEL######EXCEPTIONNEL######EXCEPTIONNEL#####x 
RQ : (ces prix peuvent être discutés, faire offre). 
DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA DCA 


Le RS 464 ou 232 * 2 sic ! 


Le but du jeu est simplement de connecter simultanément deux 
périphériques possédant une prise AS 232 sur lea seule et 
unique ÀS 232 du DAI. 


Par exemple,deux imprimantes ou une imprimante et un Minitel 


Bien sur la communication se fait entre le DAI et un des 
deux périphériques tour à tour et non pas entre les trois 
appareils simultanément. 


Le choix du périphérique élu peut se faire soit par un bête 
interrupteur manuel, sis sur le boitier de l’interface elle 
même, soit gràèce à deux fils branchés en parallèle sur le 
dit interrupteur, que l’on connectera sur une prise DIN 
d’une des interfaces K7, afin de mettre à profit le 
micro-relais de commande moteur qui jouera ainsi le rôle de 
l'interrupteur avec la possibilité d’être commandé par 
logiciel. 


L’intéret de ce montage apparait évident pour ceux qui 
possèdent le fameux logiciel de Mr. Sébastien Dubourg : 1’ 
EMULATEUR MINITEL, distribué gratuitement par I.0.C.Bordeaux 
(c.f. les pages ’le must des logiciels gratuits’), et qui 
désirent utiliser dla possibilité de recopie graphique 
d'écran que comporte ce programme. 


L'interface évite simplement de devoir fourrager à l’arière 
de votre DAI pour débrancher puis rebrancher vos différents 
périphériques en RAS 232, elle permet en outre de faire cette 
commutation automatiquement par un soft approprié. 


Ce soft approprié est déjà utilisé dans l’EMULATEUR MINITEL, 
il commute automatiquement les informations utiles au 
minitel, puis à l’imprimante, puis au minitel etc.., grèce à 
la prise de l’interface K?7 No 2. 


Bien sur, rien n’empèche d'étendre ce type de montage à X 
commutations de RÀS 232, mais personnellement je n’en vois 
pas l'utilité !! 


De nu x types de montages s 


# # # Un à visée générale, qui commute vraiement tous les 
signaux de deux AS 232 du DAI, et sur laquelle on peut 
brancher n'importe quel type de périphérique AS 232. 


Il utilise un C.I. MOS 74 HC 244 trois états, deux diodes de 
fond de poubelle (style 1N 914 ou n’importe quoi d’autre), 
et 8 résistances de 1 Mégohm. 


C'est LE doubleur de 232 


(mais si vous voulez brancher dessus votre minitel il vous 
faudra le munir de l’interface décrite dans DAICLIC 4 !) 


# # # Un deuxième montage, pour ceux qui veulent se servir 
de ce montage UNIQUEMENT pour connecter leur DAI sur une 
IMPRIMANTE et leur MINITEL. 

Ce deuxième montage à l’avantage de réduire à sa plus simple 
expression la connection avec le minitel, car il intègre les 
modifications de signal que demande cette connection (c.f. 
le schéma de connection MINITEL-DAI paru dans DAICLIC 4) 


C'est l'interface 2 en 1 


Prudence cependant car le C.I. utilisé ici, afin de réduire 
le coût à son expression la plus ridicule, est un 74 LS 244, 
version TTL du MOS précédent. 


Rappelons brièvement que les C.I. MOS fonctionnent en 
+12 Vec, alors que les TTL demandent du +5 Vcc. 

Les signaux de RS 232 vont normalement de -12Vcc à + 12Vcec. 
Le DAI tolère de OVcc à + 12 Vcec, donc aucun problème quand 
vous utilisez le MOS mais un signal TTL de +5 Vec sera trop 
peu élevé pour être reconnu, il faudra donc relever ce 
signal à +12 Vec grèce à des petits transistors ce qui dans 
le fond n’est pas trop génant puisque la connection avec le 
MINITEL exige déjà des transistors de remise à niveau du 
signal transmis. 


On peut donc mettre à profit un simple 74 LS 244 très bon 
marché et quelques transistors de fond de poubelle style 2N 
2222 pour faire cette interface très spécialisée à moindre 
frais. 


Tout serait pour le mieux si l’on oubliait qu’un C.I. TTL 
digne de ce nom, s’alimente en +5 Vec !!. Or, afin de ne pas 
tout compliquer par des fils inutiles, il est préférable de 
puiser l’alimentation de notre montage à même la prise RS 
232 sur laquelle on se branche. 


Deux solutions alors 


# # La ‘’propre”’ 

Qui consiste à utiliser une des bornes de la RS 232 du DAI 
non connectée, pour y amener un fil d'alimentation du +5 Vec 
du DAI pour le C.I. TTL. 

Cette solution bien que la seule logiquement acceptable a 
pour gros inconvenient d’exiger une intervention au niveau 
du DAI lui même, rendant l’interface connectable aux seuls 
DAI modifiés. (je ne l’ai même pas essayée...) 


# # La ’système D’ 

Qu’ utiliseront les sans peur de la bidouille (ou les plus 
inconscients...)] c’est à dire la solution que j’ai préféré 
et qui marche très bien... 

Elle consiste à brancher quand même ce pauvre TTL sur le +12 
Vec fourni sur la prise AS 232 du DAI en sachant que c’est à 
travers une résistance en série de 220 Ohm et en faisant en 
sorte que les autres résistances de ce montage chutent au 
travers des transistors suffisamment de tension, pour que le 
TTL résiste à cette alimentation, mais pas trop pour que les 
signaux soient suffisants à la AS 232 


# # Je ne citerais que pour mémoire la possibilité de 
construire une alimentation externe +12 Vcc +5 Vcec, qui 


annulerait le seul avantage de ce montage par rapport au 
précédent : sont coût !! et sa simplicité. 


POUR FINIR 


Précisons que l’interrupteur symbolisé sur les deux schémas 
doit être connecté en parallèle sur deux interrupteurs 


Un manuel simple, qui permet la commutation à la main de 
l’un ou l’autre des périphériques. 


Et deux fils allant sur une prise connectable à l’interface 


K?, bornes & et. 3, si vous désirez exploiter les 
possibilités de commutation par soft. 
N.B. L'’interrupteur manuel doit alors être en position 


ouverte pour permettre l’action de l’interrupteur par soft. 


On n’oubliera pas de connecter sur toutes les prises les 
différents signaux sans oublier les fils de masse et +12 Vec 


Les chiffres indiqués en face des bornes sur les schémas 
correspondent à ceux indiqués dans le manuel pour la prise 
AS 232. 


C'est l'interface 2 en 1 


AS 232 DAI MINITEL et IMPRIMANTE ES Hub] 


A Y 47K 
PA) AK 


+AèVee 


Transistors = 2 N 2222 
C.I. = 74 LS 244 (TTL) 


C'est LE doubleur de 232 
RS 232° et AS 232°° 
RS 232 DAI 


A ? 
s6 R4 YA4 © 


B4 YB4 
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Es 
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Diodes = 1N 914 
C.I. = 74 HC 244 (MOS) 


TYPES SN54S240, SN54S241, SN74S240, SN74S241 
BUFFERS/LINE DRIVERS/LINE RECEIVERS WITH 3-STATE OUTPUTS 


REVISEO AUGUST 1977 


recommended operating conditions 


[_Suooiv voltage, VC (58 Nous 17. | 45 7 5  s5]4rs _ s 52%] v | 
LETTRE ALT SRE | À SSSR «| 3 EC 


EEE 
Copersuns Tree remonrtuté, T7 Te None TE 0 0 | 


NOTES. 1. Voltage values are wii lesoect 10 nerwOrk QrOUnG terminal. 
1. An SNS4S241J overating at fres-air temperature above 116°C requires à nest sink tnat provides » thermal resistance from cass 10 
fres-air, RAÇA. Of not mors nan 40° C/W. 


electrical characteristics over recommended operating free-air temperature range (unless otherwise noted) 
[5240] "saut | 

TEST CONDITIONS" Main rvPr max [ain rvPi max | 

I ———— ——— — 

Low level inout voltage SN PT À RSR | XI 

PES 3 

C2 Hvsteresis re = Vr 7 Veg min 2 T 02 04 | 02 04 Tv ] 

VCC®MIN, Vim=2V, 

VCcMIN, Vim=2v. 

VIL*08V. 194*-3mA 

VC MIN, Vim=2v, 

VCC=MIN, Vin=2v. 

ViL*08V, IOL = MAX 


VOH  Highdevel output voltage 


VOL  Lowevel output voitage 


Off-state output current. 
lozH # Vcc * MAX, 
igh level voltage avolied 
Vim=2v. 


Of-srate output current, 
lozL st Vie 08V 
low-level voltage applied 
Input current at maximum 


input voltage 


Vo-24V 


Vo=asv 


Vec = MAX, 


DR — 1 DE 5 
Vcc= MAX, Vi=0.5V [ua | 


Vis SSV 


Me Lowevel input current lave 


Supoiy current 


TFor condinons snown #1 MIN or MAX, use tne a0DroDriate valve 10ecifieg under recommended operating conditions. 
Fan ryoicai values are at VCc * 5 V. Ta » 25°C 
*Not more than one output 1houId be 1nor Ted at à time, and duration of ina anorT<ireult NOUS not sxceed one CONS. 


switching characteristics, VCC = 5 V, TA = 25°C 


A Propagation delay time, 
PLH ___lowto-hign-ievel output 
Propagation delay time, 


és Nrgh-1010wrievel outDut 


tp. Output ensble time 10 low level 


Ce pere 
CET 


2 Durpur dissbie ame From Pign lever See Nos 4 


NOTE 4: Load cireuit ang voltage wavelorms are anown on sage 3-10. 


MC54/74HCT244 


HIGH-PERFORMANCE 
CMOS 
AO POUR COMME LAMEME AT SAIS 
SACONGAIE 
OCTAL 3 STATE NONINVERTING 
BUFFER/LINE ORIVER/ 
UNE RECEIVER 
[WITH LSTTL-COMPATIBLE INPUTS] 


OCTAL ZSTATE MOMINVERTING SUFFER/ LINE ORIVER/ 
UNE RECEIVER 


The MACSA/ PAMCIAA à enaca in pret 10 1e L 5244 The ot 
pes we comcautie un manderd CMOS OuGuik un pue 
vemtiort. er 208 Comcantte mir LS TTL output. 

That GCLAÉ oran ur Ole bre Gore ur vec à Cage 10 
De used ei J-tiéte memory address Grmars. CCR Grrvers. and CU 
e-crented wrsiers. lhe Gence has noramert) CDS Ed 1m 


nue De ont era 
| The MCDAS es meriar se hunchaon 1e une MODE and CAN 


© Len Pons Cormemouen Crarncueane 04 CMOS Demos 
© Quant Orne Canater: 1 LSTTL Los Meme 


let: © Coerenng Somme Series 19 LSTTL 
Eee Éer--n © wrce Cpersung Vorage Renge: 2 19 8 Von 


© Low ing Current. 1 DA Manon 
© Low Cunmcunt Current 00 LÀ Liane (MC Senant 
10 mor meme remererr Characranaue 9 CMOS Ommcns 

+ Docs Pronmenen on A4 inovts 


(OROE MG ef Aa NOM 


4 Sœen - PC m0 2 IE 
Pr ET 


Vo annee mamans armes où à ne Dan Smannee 26 cena 
SR — 


TYPES SN54LS240,SN54LS241,SN54LS244,SN54S240,SN54S241, 
SN74LS240,SN74LS241,SN74LS244,SN74S240,SN74S241 

OCTAL BUFFERS AND LINE DRIVERS WITH 3-STATE OUTPUTS 
0 


Tvpiesi  Typiesi Typicai Propagation Typiest Typicai Power 
ou 10H Detey Times Ensble/ Dæmpartion 
(Sinke (Source Oissbte (Ensbted) 
Currentl Current Inverting  Noninvwerting Times  Inverting  Moninverting 
SNSALS" 12mA -12mA 105ns 12 18 130mW 135 mw 
SNTALS" 24mA -I15mA 105ns ns 18m 130mW 135 mw 
SNS4S" 48mA -12mA 450 6ns 9m 450 mw 538 mw 
SN74S" 64mA -15mA 459 6m Jns 450 mW 538 mw 


+ _3-State Outputs Drive Bus Lines 
or Buffer Memory Address Registers 


+  P-N-P Inputs Reduce D-C Loading TYPICAL OF ALL 
: OUTPUTS 
+  Hysteresis at Inputs Improves 
Noise Margins 
description 


These octal buffers and line drivers are designed 
specifically to improve both the performance and 
density of three-state memory address drivers, clock 
drivers, and bus-oriented receivers and transmitters. 
The designer has à choice of selected combinations of 
inverting and noninverting outputs, symmetrical G 
{active-low output control) inputs, and comple- 
mentary G and G inputs. These devices feature high 
fan-out, improved fan-in, and 400-mV noise-margin. 
The SN74LS" and SN74S' can be used 10 drive 
terminated lines down 10 133 ohms. 


schematics of inputs and outputs 
“LS240, ‘LS241, "LS244 


SNSALS244 . ..J 
SN74LS244 ...J0RN 
{TOP VIEW) 


ÉQUIVALENT OF 
EACH INPUT 


"LS240, "LS241 ,'LS244; 
R = 50 A NOM 
*$240,'S241 
R-25N NOM 


PAR Ar aid ? 
Al 


Voici une serie de petits articles . Ils respectent l’ordre du manuel. 


RUN 

RUN n°de ligne 

RUN variable 

La traditionnelle commande RUN admet maintenant une variable et est 


programmable. 


IF condition THEN commande :ELSE commande 
n‘ligne n°‘ligne 


Enfin sur DAI l’interressante commande basic if then else. 


page 78 du manuel vert du DAI : basic Indata 
100 IF A=B THEN 110 

105 A=A+B 

110 PRINT A,B 


en XBASIC ça devient: 

100 IF A=B THEN 110:ELSE A=A+B 

110 PRINT A,B 

IF condition commande 

11 s’agit là d’une puissante commande analogue à la IF GOTO du basic 
Indata.Mais qui supporte pratiquement toutes les commandes basic, x- 
basic, voire basic V1.2 

par ex: IF RETURN; IF GOSUB; IF PRINT;IF CIRCLE.............,. 


Le programme execute la commande si la condition est vraie. 


IF condition THEN commande 
inchangée. 


RQ: plusieures commandes IF ne peuvent s’imbriquée: 
IF A=0 THEN IF B<>0 THEN W=0:ELSE ?"IMPOSSIBLE" 
MPMOVE ladr hadr dadr 
permet sous basic d’obtenir l’équivalent de la commande M sous utili- 
taire.(déplacement d’image par exemple) 
cette commande peut également permettre le transfert vers les rams 


6264 auxilliaires, mises éventuellement sur la carte X-bus: 


MPMOVE ladr hadr dadr bank 


VC1541 DCA VC1S41 XBASIC DCA VC1541 XBASIC DCA VC1541 XBASIC DCA 


MPINIT ladr hadr n 
identique à F sous UT. 


BCALL bankadr 
BCALL bankadr, var 

analogue à CALLM mais sur les banks. Des précisions sur ces com- 
mandes dans un prochain article sur l’utilisation de ram 6264 sur la 
carte Xbus. 


$ nom 
permet d’appeler des programmes utilitaires en EPROM par ex : SALLADER 


$SRESET 

reset des pointeurs banks 

SUSR n 

O<=n<=41 appel d’un canal utilisateur. 
IF=OFF 


désactive les commandes xbasic avec IF 


IF=ON 
reactive les nouvelles commandes xbasic avec IF 
IF=on à la mise sous tension 


cela permettrait de transcrire un programme xbasic sans ELSE en pro- 
gramme basic V1.1. Il faut également qu’il n’y ai pas de commande xba- 
sic style WHILE....... 


NCU=OFF 

desactive completement le xbasic, les commandes xbasic provoquent 
alors des “SYNTAXE ERROR". 

Il est impossible de travailler en xbasic tant que l’on n’a pas réac- 
tivé avec: 

NCU=ON 


sn apéiele cieee nie ann ee eee sue suite au prochain article........ naiss ere 
CU RP sitérss ss d'Arontes Le pour D:C.hsssice 


VC1541 DCA VC1541 XBASIC DCA VC1541 XBASIC DCA VC1541 XBASIC DCA 


Chaudfontaine, le 21 mars 1987 
Maurice DECUYPER 
rue À. Dumont 11 
4601 CHAUDFONTAINE 
Tél: 041/65.75.72 


Delauum 
Cher Luc, 


Nous avons, quelques amis et moi, effectivement réalisé une carte 
XBASIC beaucoup plus soignée et plus petite que celle de Mr 
TEGETHOFF. 


Afin de conserver les meilleures relations avec nos amis 
allemands, nous ne désirons pas envoyer directement les schémas. 


Le Soft (XBASIC, COMDOS, SGT...) est encore plus délicat à dis- 
tribuer car il appartient aux allemands. 
Ils sont donc détenteurs des fichiers sources. 


Ainsi, nous avons déjà inclus une participation pour Mr TEGETHOFF 
et Mr WIENKOP. 

I1 vous sera donc possible de leur demander les éproms pour des 
versions particulières éventuelles. 


11 serait possible de vendre la carte XBASIC nue (circuit imprimé 
seul). 

Cependant, cette solution n'est pas souhaitable car nous ne pou- 
vons garantir que l'exactitude du schéma de la plaque. 


Le prix de la carte XBASIC montée et testée avec une éprom 27256 
est de 8200 FB. 

Nous avons prévu la carte XBASIC en fonction d'une autre petite 
carte pour le basic V1.2 (enfichable très simplement sur les so- 
quets des anciennes roms). 

Vous pouvez obtenir cette petite carte montée et testée avec les 
éproms du V1.2 pour 2100 FB. 

L'ensemble des deux cartes était accessible pour 10.000 FB. 


Les circuits imprimés sont des doubles faces mais les trous mé- 
tallisés étant hors de prix (excepté par 100 pièces !), le monta- 
ge est assez délicat. 

Sur l'éprom fournie avec la carte XBASIC nous placerons la ver- 
sion que nous possédons du XBASIC, c'est à dire le XBASIC 
complet, le COMDOS (pour drive Commodore), les TED-Tools, le SGT, 
le SPU et le MDCR. 


Toutes les connections s'effectuent via de petits connecteurs 
propres et fiables. 

Tous les choix à effectuer sur les cartes (le type d'éprom utili- 
sé par ex.) se font par Jumpers. 

Ainsi, on peut sans problème placer les roms du basic V1.1 ou les 
éproms du V1.2 dans les mêmes supports sans ‘monticules" de so- 
quets (comme dans la solution allemande). 

Nous avons utilisé ce système suite aux nombreux problèmes de 
mauvais contact avec le système allemand (surtout lors des 
transports). 


Malgré ce prix modique, le matériel utilisé est de toute première 
qualité. L'ensemble obtenu est parfaitement fiable, propre et 
durable. 


Je peux également, par la suite, fournir toutes les explications 
nécessaires à l'installation de softs (tel qu'un traitement de 
texte) sur les éproms de la carte XBASIC (3 * 32 K restent 
disponibles). 


Le formidable UDOS de Wienkop et le CP/M sont disponibles aussi 
sur éprom (voir Dainamic n° 33 page 30, mars 86) offrant des pos- 
sibilités et une rapidité extraordinaire. 


Je reste à votre disposition pour tous renseignements 
complémentaires. 
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tass’data Clauites Morin 


Diminuer la longueur d'un programme BASIC c'est surtout gagner du temps 
au chargement, même pour les possesseurs de lecteurs rapides. 

Les programmes graphiques et musicaux contiennent d'interminables lignes 
de DATA. 

Elles sont généralement écrites pour que le programmeur s'y retrouve. 
Ainsi nous pouvons avoir des lignes avec une seule donnée. Quelle perte 
de place ! 


Je vous propose donc d'utiliser TASS'DATA, la routine suivante, lorsque 
le programme est bien au point. 

Vous allez retrouver vos données rassemblées dans un minimum de lignes. 

Une obligation tout de même, toutes les lignes de DATA doivent se 
trouver à la fin du programme sans autre instruction intercalée. La routine 
le vérifie et donne un message d'erreur s'il y en a. 


Les lignes de DATA contiennent au maximum 122 octets (caractères ou sé- 
parateurs). L'analyse de la position des séparateurs (virgule ou fin de 
ligne) permet de ne pas couper les données en deux. 

La table des symboles est recopiée à la suite des nouvelles lignes. Ce 
décalage est possible puisque les étiquettes des variables sont repérées 
relativement au début de la table des symboles dont l'adresse est contenue 
dans les pointeurs #2A1/2A2, remis à jour par la routine. 


Comment s'en servir ? 


Chargez le programme contenant les DATA à tasser. 
Commandez CLEAR#200, pour réserver la place de la routine. 
En utilitaire, chargez la routine TASS'DATA. 

Revenez au BASIC. 

Lancez la routine par CALLMS#2F0. 


J'ai gagné 400 octets sur un programme de dessin de la planisphère !! 


SPL V1.1 PAGE 1 

0000 ; 

0000 j 

0000 TITL 
0000 ; 

0000 : 

0000 @=029F DEBBAS EQU 
0000 @=02A1 DEBSYM EQU 
0000 @=02A3 DEBLIB EQU 
0000 @=DAD4 ECRLIG EQU 
0000 @=DE14 CPHLDE EQU 
0000 @=DE39 ADLISU EQU 
0000 ; 

0000 ORG 
02F0 ; 

02F0 ; 

02F0 j 

O02FO C5 DEBUT PUSH B 
O2F1 CD4F03 CALL 
02F4 C1 POP B 
02F5 C9 FIN RET 
02F6 ; 

02F6 ; 

02F6 î 

02F6 00 INDATA DB 
02F7 0000 ADECRI DW 
02F9 00 CPTOCT DB 
02FA 0000 ADCINQ DU 
O02FC 0000 NUMLIG DW 
O2FE 00 GUIMET DB 
O2FF 0000 OCTSEP DW 
0301 0000 ADSEPA DW 
0303 00 FNMAUX DB 
0304 ; 

0304 ; 

0304 ; 

0304 7E LECECR MOV A,M 
0305 02 STAX B 
0306 23 INX H 
0307 03 INX B 
0308 cg RET 
0309 ; 

0309 ; 

0309 ; 

0309 ; 

0309 Z2AFA02 MISJOU LHLD 
030C 3E7A MVI A 
030E 91 SUB C 
030F 77 MOV M,A 
0310 2B DCX H 
0311 3642 MVI M 
0313 2B DCX H 
0314 EB XCHG 
0315 2AFCO2 LHLD 
0318 EB XCHG 
0319 73 MOV M,E 
031A 2B DCX H 
031B 72 MOV H,D 
031C 2B DCX H 
031D C604 ADI 
031F 77 MOV M,A 
0320 13 INX D 
0321 EB XCHG 
0322 22FC02 SHLD 
0325 B XCHG 
0326 CD3SDE CALL 
0329 600 MVI D 
032B 1E04 MVI E 
032D 9 DAD D 
032E 22FA02 SHLD 
0331 3 INX H 
0332 22F702 SHLD 
0335 AF XRA A 
0336 32FE02 STA 
0339 


ES 


DATMAX PUSH H 


21 - 


*TASS DATA" 
Claudius Morin 


29FH ;Debut du basic 

2A1H ;Debut table symboles 
2A3H ;Debut memoire libre 
ODAD4H Ecrit une ligne 

ODE14H ; Compare HL et DE 
ODE39H ;HLz=adr. ligne suivante 
2FOH 


Debut et fin de routine 


INIT 


Memoires auxiliaires 


OH ;FF si ligne DATA 

OH ;Adr. ecriture courante 

OH ;:0ctets restants, en ecriture 

OH ;Adr. 5eme octet ligne, en ecriture 
0H ;Numero ligne, en ecriture 

OH ;Guillemet, FF=ouverture, 

OH ;0ctets restants, apres un separateur 
on ;Adr. separateur en lecture 


Transfert d’un octet 


Mise a jour des S premiers octets 
d'une ligne de DATA 


ADCINQ 
7AH ;:122 DATA max. 
;Nbre d’octets de DATA 
OA2H ;Code DATA 
NUMLIG ;Numerote la ligne 
4H 
;Nbre d'octets ligne basic 
NUMLIG ;Numero ligne suivante 
ADLISU 
OH 
4H 
ADCINQ 
ADECRI 
GUIMET 


0=fermeture 


SPL V1.1 


110303 


CD39DE 


19 
01F602 
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3 
MEMSEP 


INIT 
MEMAUX 


AUTLIG 


SUIMEM 
MELIDA 
FNPGBA 


2 
LIGLEC 


LIGSUI 


Css ve 


NDATA 


7AH 
CPTOCT 


Rencontre d'un 


OCTSEP 
ADSEPA 


Max octets ligne DATA 


separateur 


Nbre octets restants (lect. et ecrit.) 


;Adr. dernier separateur 


Programme principal 


INDATA 
FNMAUX 


CPHLDE 
MEMAUX 
DEBBAS 
OH 


3H 


FNPGBA 


OA2H 
MELIDA 


ECRTXT 


SUIMEM 


;Mise à O mem. auxiliaires 


;Saut si fin de programme 


;Saut si ligne DATA 


;Saut si autre ligne apres ligne DA 


;Retour au BASIC si pas de DATA 


Validation terminee, debut lecture et eciture 


DEBBAS 
OH 
3H 


DECSYM 


OA2H 

UNDATA 
ADLISU 
LIGSUI 


slere ligne 


;Saut si fin de programme 


;Saut si DATA 


Une ligne de DATA 


4H 
INDATA 
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OA 


21F902 
4E 
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DECALT 


DEBLEC 


LEDATA 


GUILME 


ECDATA 


TASS DATA 


23 


DEBLEC 


ADCINQ 


NUMLIG 
DATMAX 
ADECRI 


0H 
OFFH 
DEBLIB 


DEBLIB 


CPHLDE 
DECALT 


OH 
OFFH 


CPTOCT 
GUIMET 


1", 


GUILME 


ADECRI 
ECDATA 


MÉMSEP 


ADECRI 
NFNLEC 


FINBAS 


FINECR 
1H 


FINECR 


;Suite si iere ligne DATA 


;Memo. lere ligne 


;Numero lere ligne 


;)Modification 
;)de l'adr. basse 
;)de la table 
;)des symboles 


;)Decalage 

;)de la table 
;)des symboles 
;5)et des DATA 


;HL=adr. en lecture 


5)FF = ouverture guillemet 
3) 0 = fermeture 


;)Virgule = separateur 
;5)si non comprise 
;)entre guillemet 


;Suite si fin lect. d’une ligne 


; Saut si fin prog. 


;Saut si O octet en ecrit. 
;)Ne pas ecrire 

;)de separateur 

jen fin de ligne 
;Ecriture du separateur 
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1B 


C38A03 


0D 
D5 
CDO903 
E1 
C38A03 


218904 


CDD4DA 
cg 


457272 
657472 
646520 
00 
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NENLEC 
3 


ECRTAB 


MEMSEP 


ADECRI 
CPTOCT 


LIGLEC 


LEDATA Suite si fin ecrit. d’une ligne 
OCTSEP 


MISJOU 
ADSEPA 


LEDATA ;Suite si fin lect. d’une ligne 
LIGLEC 


Fin d'ecriture 


MISJOU 
LIGLEC 
Fin prog. BASIC, decalage table symbole 
ADECRI 


OFFH 
OFBH 


LECECR 


DEBSYM 
DEBLIB 


LECECR 


CPHLDE 
ECRTAB 


DEBLI8 


Ecriture d'un texte 

MESERR 

ECRLIG 

Message d'erreur 

"Erreur, les DATA doivent 


'etre regroupes en fin ? 
i programme." 


R E 5 T (l , R À \ f - Claudius Morin - 


Est-il possible d'utiliser les DATA de manière très différente ? Nous 
sommes habitués à l'instruction RESTORE ou à la routine RESTORE LINE qui 
rapproche nos DAI des autres machines. 


Voila, RESTO'RANG, une routine à trois entrées, qui offre d'autres faci- 
lités. Le pointeur de DATA peut se placer : 
- au rang absolu N, compté à partir du premier DATA. 
- au rang relatif, de -N à +N à partir du dernier DATA utilisé. 
- après le Nième séparateur (caractère écrit comme un DATA pour 
servir de point de repère). 


L'utilisation de ce PLM, dans un programme BASIC, demande le transfert 
d'informations, à l'appel de celui-ci, de la manière suivante : 


A% = informations 
CALLM adresse, A% 


Le contenu de la variable dépend de l'entrée de la routine. Seuls les 
deux derniers octets de la variable sont utilisés ainsi : 

- rang absolu : accepte un nombre positif au plus égal à 32767. 

- rang relatif : accepte un nombre compris entre -32767 et 
+32767. Le chiffre O permet une répétition du dernier DATA. 

- séparateur : le 4ème octet contient le code ASCII du sépa- 
rateur choisi, le 3ème octet contient l'occurence (rang absolu 
du séparateur). Un exemple, pour obtenir la 4ème occurence du 
séparateur *, il faut écrire AX=#043A. Des séparateurs quel- 
conques peuvent ®tre utilisés simultanément. Ils doivent 
seuiement être différents des caractères utilisés dans les DATA 
Une information complèmentaire peut les accompagner à condition 
qu'elle les précède, par exemple : 


1010 DATA A, B, CD, *, E, FG, 18, G, H, 28, 1J, K 


où *#, & sont des séparateurs, 
1, 2 devant & ne servant que de repères au programmeur. 


Utilisez le principe du manuel page 53 pour stocker la routine dans une 
variable dimensionnée, A%(80), déclarée au début du programme BASIC, ainsi 
vous n'aurez plus qu'à assembler la routine à partir de #2FO. 


Appelez chaque entrée ainsi : 
CALLM#2FO0,A%X pour les séparateurs. 
CALLM#330,A%X pour le rang relatif. 
CALLM#380,A% pour le rang absolu. 
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@=029F 
@=0123 
@=DE39 
@=DE14 


CD1004 
342604 


E1 
c30203 
00 


CD1004 
210000 
222704 
2A9F02 
CDCB803 
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; 
; 

INDBAS 
INDDAT 


LIGSUI 
CPHLDE 


BC1 
BCS 


BC4 


BC2 


BC3 


; 
; 
DEBREL 


BCL4 


BCL1 
BCL2 


BCL3 


"RESTO RANG ou RESTORE RANG' 
Claudius Morin 


29FH ;indicateur debut prog. BASIC 
123H ; Indicateur de DATA 

O0DE39H Adresse ligne suivante 
ODE14H ; Compare HL et DE 

2FOH 

Debut de la routine "Nieme separateur" 


DEBCOM 
CPTDAT+1H 


BCi 
1H 
CPTDAT+1H 
Ligne suivante 


;Nombre total d'octets 
UNDATA 


BC2 Suite si fin de ligne 


Adresse de la virgule 
CPTDAT 


BC3 ;Suite si separateur 
CPTDAT+1H 


DATFIN ; Saut si derniere occurence 
CPTDAT+1H 


BC4 ;Suite si fin de ligne 
BCS 

OH 

Debut de la routine "rang relatif" 
DEBCOM 

OH 

NBUTIL 

INDBAS 

LIDATA 


INDDAT+1H 


UNDATA 
NBUTIL ;)Incremente 


3)le compteur 
NBUTIL ;)de DATA utilises 


BCL3 Suite si fin de ligne 
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Di 
2A2401 
CD14DE 


EB 
C23C03 
2A2704 


EB 
242504 
19 


222504 
C38603 


00 


CD1004 
2A2504 


0E09 
7C 


FEA2 
C2E703 
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; 
DEBABS 


RANABS 


BL2 


BL7 


DATFIN 


BL6 
RETBAS 


Ces 


= 99 = 


RESTO RANG ou RESTORE RANG 


POP D 
LHLD INDDAT+1H 
CALL CPHLDE 
XCHG 
JNZ BCL4 ;Suite si dernier DATA utilise 
LHLD NBUTIL 
XCHG 
LHLD CPTDAT 
DAD D 
SHLD CPTDAT 
JMP RANABS 
DB OH 
Debut de la routine "rang absolu" 
CALL DEBCOM 
LHLD CPTDAT 
MVI C 9H ; Code d'erreur 
MOV A,H 
ORA A. 
JM ERR ;Saut si rang<0O 
ORA L 
JZ ERR ;Saut si rang=0 
CALL RESTDA 
MOV A,H 
ORA L 
MVI A OFFH ;)Equivalent de RESTORE 
LHLD INDBAS Fr 
JZ RETBAS Saut si rang=1 
CALL LIDATA 
PUSH D ;Debut ligne suivante 
MOV C,A ;Garde le nombre d'octets 
CALL UNDATA 
XCHG 
CALL RESTDA 
XCHG 
MOV A,D 
ORA E 
JZ DATFIN ;Saut si plus de DATA 
MOV A,B 
ORA A 
JNZ BL7 Suite si fin de ligne 
POP H 
JMP BL2 
POP H ;Adresse ligne suivante 
MOV A,B 
ORA A 
CMA 
JZ BL6 
MOV A,C 
SUB B ;A=#FF ou A=C-B 
STA INDDAT 
SHLD INDDAT+1H 
POP B ;)Retour au BASIC 
POP H 5) 
RET 5) 
Recherche des lignes DATA 
MVI C 2H ;Code d'erreur 
MOV A,M 
ORA À 
J2 ERR ;Erreur si fin de programme 
MOV D,H 
MOV E,L 
CALL LIGSUI 
XCHG 
INX H 
INX H 
INX H :HL=Adr. code basic 
MOV A,M 
CPI OAZ2H ;Code DATA 
JNZ BL1 
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23 
7E 
229102 
C9 


EB 
C3CB03 


c8 
C3EE03 


2A25S04 
2B 
222504 
cg 


79 
C3F5D9 
0000 
0000 
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BL1 


[ETES 


NDATA 
BLS 


BL3 


BL4 


De 


ESTDA 


Due 


EBCOM 


_ 28 _ 


RESTO RANG ou RESTORE RANG 


Z 
æ 
L'1°°2 


;Nombre d’octets 
291H 
LIDATA 
Analyse des octets d’une ligne de DATA 


;Compteur d’octets 
OH Memoire de guillemet 


;0ctet de DATA 


BL3 Suite si guillemet 


Retour si separateur 
dté sRetour si fin de ligne 
Decremente le compteur de DATA 
CPTDAT 
CPTDAT 


Debut commun 


;)Contenu de la variable 
;)BASIC 

51 

CPTDAT+LH : 


CPTDAT 


Erreur 


O0D9F5H 


OH ; Compteur de DATA 
OH ; DATA utilises 


D A T A s A N s D 1 E s E 


Claudius Morin 


Non je ne vous propose pas de faire de la musique, mais seulement de sup- 
primer les # devant les nombres hexadécimaux. Ceux-ci sont fréquemment utilisés 
pour charger un PLM à partir.de DATA. Le nombre de caractères est ainsi diminué. 


Certains BASIC acceptent l'écriture suivante : 
B$="FF" : B$="#"+B$ : A%=VAL(BS) 
A% contient le nombre 255 


La routine, DATA SANS DIESE, simule cette possibilité. 
Elle ne fonctionne que pour des nombres au plus égaux à 255. Elle peut être 
adaptée pour transformer des nombres plus grands. 


L'assemblage de la routine se fait dans une variable dimensionnée, A%(23), 
déclarée au début du programme BASIC, comme cela l’origine de la routine se 
trouve à l'adresse de la dimension O0 de la variable, utilisée pour récupérer le 
nombre. 

Si vous n'avez pas réservé de mémoire, la première dimension est en #2FO, 
vous pouvez utiliser la routine comme suit : 

DATA FF, ... 

READ B$ 

CALLM#2F4,B$ 

PRINT A%(0), retourne 255. 
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m 
Oo 
[Te 
EEE 


57 BC1 


7B 
C3F5D9 


RANSF 


30 - 


"DATA sans DIESE” 
Claudius Morin 


2FOH 

OH ;)Dimension zero de la variable 

OH ;)contenant la routine 
;)HLzadr du nbre de 

ou ;)caracteres transmis 

OAH ;Code "INVALID NUMBER" 
;)Seulement 
;)1 ou 2 

ERR ;)caracteres 

3H 3)a traduire 

ERR ‘ 

0’ 

TRANSF 

TRANSF 

ZERO+3H smemorisation du nombre 


Transformation d’une chaine "O0" a "F" 
en nombre de © a 15 


9H ;Code "NUMBER OUT OF RANGE 

30H 3" 0" 

ERR 

3AH F'O"F1H 

BC1 

41H s'A’ 

ERR 

47H 3"F°+1H 

ERR 

OFH ;Elimine le poids fort 
50 a 9 ou 1a6 


;)eb7 de parite=1l 
3)si A>=nbre=<F 


BC2 
9H 


ecriture des codes d'erreur 


0D9F5H 


BAIG thierry 46 rus d'AVRON 94170 Le PERREUX 


CLAVIER POUR NOTARAE CHER DAT 


Le but du jeu consiste à raccorder un clavier à notre 
ordinateur préféré. Encore un | vous allez penser,oui 
maise,(car bien sur 11 y à un mais..)] cet article décrit une 
réalisation sans électronique sans alimentation at sans mise 
au point.Un fer à souder,du f1l1,et un clavier mécanique 
suffisent. 


D'abord le clavier: 


- N'importe lequel convient à condition 

qu'il soit mécanique et bien sûr sans rebondell1!1,à éviter 

les claviers à affet Hell cer ils nécessitent une 
alimentation. 


- Le plus gros travail consiste à 
retrouver la matrice du clavier ou alors,ce qui était mon 
cas,en refaire une eur de le plaquette à trous ,ou pour les 
plus courageux sur un circuit imprimé. 


- La matrice est constituée de lignes en 
X at colonnes an Y, vous la touverez dans le manuel du DAI 
à la page n.132. 


- Donc reliez un point de toutes les 
touches de la lignes O antre alles,puis celles de la ligne 
1,at ainai de auite.Chaque ligne doit âtre indépendante las 
unes des autres. 


- Fefaire de même avec les colonnes sur 
l'autre point de libre de chaque touche,courage il n'y à que 
18 fils à souder, 


- A la fin de ce travail vous aurez done 
15 fils à sortir constitués de ? fils pour les colonnes at & 
file pour les lignes. Aepérez les et soudez les sur un 
connecteur ayant au moins 18 broches. Un connecteur 28 
points mâle Cannon suffit largement, ne pas oublier les 
vérrouilleges du connecteur! 


Ensuite le DATI: 


- Percaz une ouverture sur un des côtés pour fixer 
le connecteur famalle,aveac verrouillage bien sûri, 


- De ce connecteur soudez vos 15 fils toujours en 
les rapérant d'après le clavier,les axtrémitées de ces fils 
seront à souder aur les points correspondant du clavier 
d'origine du DAI.(toujours d'aprés la matrice de la page 
n.132) 


- Finallement les 2 claviers seront branchés en 
perrallèle,une petite précautions passez un #11 de masse 
dans votre cordon de liaison, mais du fil blindé n'est pas 
utile.Vous pouvez apporter aussi une autre amélioration: 
sortir deux fils du bouton reset at installer un poussoir 
raset aur le clavier déporté, choisir judicieusement sa place 
et son type sinon attention aux rasets malencontreux.1111111 


J'ai testé cette réalisation avec 2 mètres de fils sens 
sucun problème quand au boitier je laisse libre cours à 
votre imagination 


Bon courage ! 


Des timmers 


Pour pouvoir exécuter un sous programme périodiquement, 
il y a la possibilité d'utiliser l'interruption 7 qui se 
déclanche toutes les 20 ms (comme on l’a vu sur l’article 
Dai & minitel à propos du clignotement caractères/curseur ). 
Mais las, 20 ms, c’est beaucoup, c’est parfois trop. 
Heureusemenent il y a une autre solution: le timmer. 

Le Dai en possède 5, qui sont gérés par notre bien aimé 
5501 (oui, tu sais c’est lui qui gère aussi les 
interruptions et la AS232). Ces S timmers sont, il faut 
l'avouer assez rudimentaires par rapport à ceux que l’on 
trouve généralement sur le marché: on les charge avec une 
valeur qu’ils décrémentent toutes les 64 microsecondes, et 
quand ils ont atteint O,ils s’arrêtent de compter et 
provoquent une interruption. 

A chaque timmer correspondent une adresse de chargement 
et une interruption associée (et dont un vecteur 
d'interruption), voici les correspondances: 


fonction usuel- 
-le de l’inter. 


| #62 / #63 | L de l'utilty. 
UT _& encodage. 
6 


#6E / #6r | clavier. | 
L_#errn | 7 | #0 7 #71 | Horloge (TW+ 


*: Normalement l'interruption 7 ftonctionne en tant 
qu'interruption externe (elle est reliée au circuit vidéo 
qui délivre une impulsion toute les 20 ms). Pour transformer 


(e] / 


l'int. 7 en interruption liée au timmer 5, il suffit 
d'envoyer au registre de ‘commande du 5501 (adresse #FFF4) 
l'octet #80, pour revenir à l’état normal, il faut envoyer 
#C0. 


Comme on le voit, il faudra faire attention 
1) de bien autoriser l'interruption liée au timmer 
choisi en mettant à ‘1 le bit correspondant à cette 
interruption dans le registre de masquage (adresse: #FFF8 
2) de ne pas perturber le système d’exploitation 
qui se sert déjà de nombre vecteurs d’interruption pour ses 
besoins personnels. 


Enfin pour éclaircir les idées, un petit exemple, qui 
modifie à intervalle de temps régulier un caractère sur 
l'écran: 


Sébastien Dubourg, 
le 22 janvier 1987 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0400 
0403 
0403 
0403 
0403 
0403 
0403 
0403 
0403 
0403 
0403 
0403 
0403 
0403 
0403 
0403 
0403 
0403 
0403 
0403 
0404 
0406 
0409 
040€ 
040F 
0412 
0414 
0417 
0418 
0419 


TITL 


C30304 


O0A0 


e=-8F81 


@=005F 


0062 


@=FFF8 


FFF9 
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*TIMMER by Sebastien OUBOUAG 21 Janvier 


; 
;(c) IDC Bordeaux 


WTITIIITIIIIIIII IL 


;5# Point d’entree # 
HHHHHHHHHHHHHHAHHH 
; 
onG 4004 
JWP INTON 
TIMING EQU 0AOH 
; 
DIODE EQU o8F81H 
AMASK  EQU SFH 
vo EQU 62H 
MASK  EQU OFFF8H 
TIMMER  EQU OFFF9H 


ATIIIILIITIIIIIIILIIIIIIIIIIIIL] 
;:# Mise en fonction du timmer # 
 HHHHHHHHHHHHHHHHHHAHHAHHHAHHHH 


INTON DI 
MVI A 


OC5H 
MASK 
RMASK 
INTIME 
vo 
TIMING 
TIMMER 


; Temporisaetion en unites 
;de 64 microsecondes. 


;Une case de l'ecran. 


; Copie du registre de 
smasquage en ram. 
;Vecteur d'’int. 0 
;(timmer0O). 

;Registre de masquage. 
; Adresse du timmer O0. 


;Autorise l’int. O. 


;Met en place notre 

; propre vecteur d'’int. 
; Charge le timmer 
;(initialisation). 


0419 ; 
0419  AHRHAHAHHHHHHAHEA 
0419 ;# Routine appelee 
0419  HHHHHHHAHHHHHHHAH 
0419 ; 
0419 F5 INTIME PUSH PSW 
041A 21818F LXI H 
0410 34 INA M 
041€ 3EAO MVI A 
0420 32F9FF STA 
0423 F1 POP PSW 
0424 E1 POP H 
0425 FB EI 
0426 ; 
0426 c9 RET 
0427 . 
0427 ENO 
SPL V1.1 PAGE 1 
BAUDS :0000 DIODE :BF81 INPUT 
OUTPUT:0000 RMASK :005F STATU 
vo :0062 

nn Se 

| 11111 nl 

M 
| RER 2 | 
—— 3 | 
ä 


+ 
dl 
CREDITS BALL 
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HHHHHHHHHHHHHHAE 
par le timmer # 
HHHHHHHHHHHHAHHH 
DIODE ;Modifie le caractere 
;d’adresse DIODE. 
TIMING ;Recharge le timmer. 
TIMMER 
; Si on n'autorise pas 
;2 nouveau les int., 
ce bloque le systeme. 
; That's all faolks !!1! 
:0000 INTIME:0419 INTON :0403 MASK :FFF8 
T:0000 TEST1 :0000 TIMING:O0A0 TIMMER:FFF9 


| Mig hit 


1o000 
LT 


LM 
+] 


l | 

| 

A | ! 
= | 
= ui 
F, ln 
mi ui 
5 
a e 
+ | 
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uepshqeD mIeUbIS 24/UM/0U TP Uspsen JI WES2 IP JIM 16084 
ss31e8u28-diq w0A 
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TOUS PAUNT USE pur SA] a TapuLiE ss 


*A931pque HOUdZ J8PO 42#30 NI eue iu0 44 

sep Uuen ‘U3}10pË NU IVG w2P 3}# j1eq4y ep 385 (4344 
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: RTE] 
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VOA US)eQ UBUUQY #3 ‘US3»41 NZ DLUNPUQGUISA MF Jos fTéæuUu:; 
weure 3j9 UD2F10AS [VO wep se 351 WDV)4SJUI-IQIN Sep 42414) 


TEST ASSUIE TU TA BAT US DUN 26 1423 © 227{, So pu 42 


1290:738 Aïe UOA 0es31èg U} 


PR DAIRE APE 


7 


SF P 


= O7 


Lo “C 
na thx v 


Technische Daten: Bereich @ - +5V regelbar 
Impedanz ca. 4,5 KA 
Umsetzzeit < 100us 


Kurzbeschreibung: 74HC138 - Kartenadresse 
7415125 - Clockgenerator, Buffer, 

RD-Gener i er ung 
ADC68068/0809 — A/D-8 Bit / 8 Kanal 


Bedienung: Das Interface kann mit folgendem BASIC Befehl 


arbeiten: 
AX=INP (fine) n * Kartenadresse 0-7 
æ * Kanal ©@-7 
Daten: AX kann Daten von #06-#FF enthalten. 
Interruptsteckbrückes EOC wird “1”, wenn der Umsetzvorgang 


beendet ist 


Die Einstellung des zu wandelnden Spannungsbereichs wird mit 
Var vorgenommen. Bitte fragen Sie bei Interesse beim Club nac 
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EFROM PROGRAMMER 


Mit dem nachfolsend vorsestellten EPROM-prosrammer ist es auf 
einfache und rreiswerte lleise moeslich EFROMs folsender Tyren 
zu rrosrammieren : 2716,2732, 2732a,2764 und 27128. 


DIE SÛFTWARE 


Mit der Software fuer den Prosrammer sind folsende Orerationen 
mogsl ich: 


1. Leertest: 
Bei diesem Test -stellt der Kechner fest, ob das EFROM 


géèloescht ist, d.h ;ob alle Sreicherzellen den Wert #FF 
enthalten. Stoesst er bei diesem Test auf eine unzeloeschte 
Sreicherzelle, so sibt er deren Adresse aus und fuehrt den 


Test fort. 


2. Lesen: 
Mit dieser Operation ist es moeslich den Inhalt des EPROM: 


in den Sreicher des Rechners einzulesen, Hierzu verlanst der 
Rechner die Einsabe einer Startadresse, ab der der Inhalt des 
EPROMS absesreichert wird. 


3. Prosrammieren: 
Wird diese Funktion ansewuasehlt, so verlanat der Rechner 


drei Einsabent à, Anfanssadresse des 21 Frosrammierenden 
Sreicher- bereichs:; b. Adresse, ab der das EPROM Frrosrammiert 
verden soll. © Anzahl der zu Frosranmmierenden Estes, Esispiel! 
Man moechte in ein EPRONM vom Tr 2764 folzende Daten Prosram- 
mierent 3245 Eutes-ab Adresse #E359 sollen im EPFROM ab Adresse 
#448 abszesreichert werden, Dazu sibt man zunaechst die Start- 
adresse der zu Frrosrammierenden Daten ein (E35%) ; dann die 
Adresse, ab der das EPROM Prosrammiert werden soll (4&ñ} und 
schliesslich die Anzahl der zu Prosrammierenden Eutes (CEG), 
Der Rechner teilt dann mit, dass das EPFROM prosrammiert wird, 
und wann er fertis ist. 

Vorher wird ein Loeschtest durchsefushrt und euvtl, darauf 
hinsewiesen, dass das EPROM nicht vollstaendis seloescht ist. 
Nach dem FProsrammieren wird ueberrrueft ob der Prosrammier- 


vorsans erfolareich war. 


4.Verifizieren!: 
Mit dieser Funktion ist es moeslich den Inhalt des EPRÜMES mit 


einem Sreicherbereich des Rechners zu versleichen. Die Einsabe 
der Farameter ist sleich der beim Prosrammieren. Tritt.eine 
Unstimmiskeit zwischen Rechnersreicher und EPROM auf, so wird 
diese Adresse aussgeseben. Der Versleichstest kann durch den 
Druck einer Taste absebrochen werden. 


Die Einsaben der Parameter erfolat im UTILITY-Format und 
essen durch RETURN’ abseschlossen werden. Bei Jjeder Fehl- 
le Be ss wurue keine Hex-Zahl einseseben) wird die 
b3eù PL Fehlerm2lduns ausseseben und zu- 


-2- 
EPROM PROGRAMMER 


DIE HARDWARE 


Der EPROM-Prosrammer besteht aus einer Platine, die mit einem 
RUC-Stecker ausseruestet ist, Cwahlweise kann auch ein 34-F01- 
ses Flachbandkabel mit DCE-Bus Stecker anseloetet werden). Ein 
aleichzeitiser Betrieb des EPROM- Prosrammers und -anderer 


RUWC-Karten ist nicht moeslich. 


Die.Hardware: selbst ist sehr einfach sehalten und daher auch 
preiswert. Die Adressieruns des EPROMS erfolst ueber Zaehlbau- 
steine, der Datenbus ist direkt verbunden, und das Anlesen der 
Prosrammiersrannuns erfolst ueber Transistoren, die in einer 
Sicherheitsschaltuns so verknuerft sind, dass eine sroesst- 
mogsliche Sicherheit sesen Beschaedisgunsen des EFRÔMS erreicht 
wurde (selbst bei Systemabstuerzen passiert meistens nichts). 
Die ÂAnPassuns der  ProsrammiersPannuns ‘an die verschiedenen 
EPROMS ist ebenfalls ueber Transistoren sereselt und vLoll 
unter Software-Kontrolle. 


Auf der Platine ist alles ausser dem Netztrafo untersebracht. 
Es .muss al50 nur noch eine Wechselspannuns von ca. 25 ÙU 


angelest werden. 


Fuer Interessenten, die die Schaltuns nicht in UWire-Wrar- 
Technik: erstellen uwollen,. besteht die Moesliéhksit eine 
sebohrte Platine (oder auch bestueckt und ,setestat) bei mir zu 
bestellen. Die Preise belaufen sich auf ca. : 25,-DM fuer eine 
ünbestueckte und ca. 169,-DM fuer eine bestueckte Platine. 


Die Software ist zum Selbstkostenrreis beim Club erhagltlich, 
bzw. -wird beim Bestellan einer Platine mitszeliefert, 


Norbert Rinnen 


Norbert Rinnen 

Mosrikestr. 19 
S862:Bersisch-Gladbach 1 
Tet:-02204/81963 
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PASCAL & ALGORITHME 5 


de nouvesu x horizons 


Les articles qui vont être publiés tout au long de cette 
année suivront le plan suivant 


I Introduction et historique 

II _L’écriture algorithmique 

III Mode d'emploi du DAI Tiny Pascal 

IV Ordres du Pascal. Parallèle algorithme-Pascal 


V Bibliographie 


Aujourd’hui donc : 


II L'écriture algorithmique 


II L'écriture algorithmique 


A. Les différentes tvoes de orogrammation 


La orogrammation, art d'utiliser la puissance des ordi- 
nateurs pour déquiser en intelligence leur extrème stuoidité 
se décomoose en trois phases : 


* Aller du oroblème vers un modèle 
* Construire un alaorithme à partir du modèle 
* Transcrire l'algorithme en programme 


Comme l'algorithme est indéoendant de la machine et 
du langage utilisé, il sera rédigé en francais clair et 
explicite afin d'etre aisément compris par un tiers (et de 
pouvoir etre relu quelques mois plus tard lors d'une modifi- 
cation...). Cependant il suit une méthode de orogrammation 
particulière qui peut etre : 


# La PROGRAMMATION SYSTEMATIQUE revient à construire 


le programme en suivant les 3 phases énoncé précédemment. 
C'est la base de toute programmation qui se veut sérieuse et 
non improvisation (voir soirée d'hiver en basic...). 


# La PROGRAMMATION MODULAIRE. Dans de nombreux cas. 


la comoléxité du problème imoose de le décomooser en sous- 
problèmes et d'aboutir à des algorithmes pour ces sous- 
problèmes. Ainsi. la démarche de la orogrammation modulaire 
met l'accent sur l'imoortance du découoage d'une aoolication 
en unités logiques (non faites par DCAhard !!!) définissant 
les liens entre ces diverses unités. 


* La PROGRAMMATION STRUCTUREE. La construction d'un 
algorithme s'appuie sur un certain nombre de structures pri- 
mitives et qui fournissent une méthode de pensée claire et 
simple qu'il convient de conserver tout au long des déveloo- 
pements successifs de l'algorithme: c'est la démarche de la 
programmation structurée. L'intéret de ces structures de 
base, outre leur simolicité d'utilisation, est de oermettre à 
partir du texte du programme, la démonstration de certaines 
des prooriétés de son exécution. C'est là un oas considérable 
vers la solution d'un problème fondamental : 

PEUT-ON FAIRE LA PREUVE DU PROGRAMME AVANT SON 
EXECUTION. C'EST À DIRE DEMONTRER QU'IL VA 
FONCTIONNER CORRECTEMENT ? 


# La PROGRAMMATION DEFENSIVE. La sécurité est une 


exigence imoortante et naturelle de l'utilisateur d'un oro- 
gramme. Sa définition est évidente dans certains domaines 
d'aoolication comme la commande des orocessus. les systèmes 
d'exploitations. La notion de sécurité existe ceoendant oour 
tous les tyoes de orogrammes: on peut la définir comme 1 ‘ao- 
titude du orogramme à fournir des résultats raisonnables dans 


tous les environnements possibles, et en particulier dans des 
conditions anormales. L'’exmole le plus simole de condition 
anormale est celui ou l'on fournit à un programme des données 
erronées qui doivent etre décelées et rejeteées et non pas 
conduire à une catastronhe. Pour prévenir de telles situa- 
tions il est naturel de pratiquer une programmation défensive 
qui consiste à prévoir le programme pour un environnement 
réel ou tout peut se produire, plutot que pour des circons- 
tances idéales (comparez à ce sujet DAITEXT v21 et DAIWOR- 
DSTAR ...). Il s'agit en quelque sorte d'élever au rang de 
principe de programmation la loi, dite de Murphy (non prénom- 
mé Eddy...), selon laquelle “si le pire peut arriver, il se 
oroduira", 


A l'heure actuelle, il n'existe pas de méthode de 
programmation miracle mais sachez que l'écriture algorithmi- 
que que nous allons voir à présent s'appuie sur les 4 mé- 
thodes précédentes et donc, si elle est respectée par le 
programmateur, conduit à des programmes fort correct dans 
tous les domaines. 


B. Rapnels et définitions 


OBJET : ce terme désigne toutes les données manipulées par le 
programme (ex: variables alphanumériques, constantes, tab- 
leaux). 


: c'est le nom d'un objet. Il n'est que trop 
conseillé de choisir des identificateurs clairs (ex: nbrepas 
est plus facile a relire que n...). 


AFFECTATION à: on donne une valeur à un objet. 


‘ : c'est une suite ordonnée d'ins- 
tructions (la fin d'une instruction déclenche l'exécution de 
la suivante). 


BLOC : ensemble d'instructions enchainées séquentiellement. 
dont l'exécution ne peut commencer que par la première 
instruction du bloc et ne peut se terminer que par la 
dernière: un bloc apparait comme un ensemble inséparable et 
donc comme une instruction de olus haut niveau sémantique. 


ex : instruction 1 
instruction 2 
instruction 3 


si condition alors pinstruction 4 
instruction 5 

sinon instruction 6 

instruction 7 

instruction 8 


instruction 9 
instruction 10 


les traits verticaux sigifient qu'il y a enchainement 
séquentiel de haut en bas. 


COMMENTAIRES __: utile aussi pour le concepteur, on les 
trouvera entre accolades. 


ITHME__: ensemble structuré de blocs d'instructions 
permettant de décrire complètement une méthode de résolution 
d'un problème donné. 


C._Un principe de orogrammation 


Un bon programme est faignant car il utilise beaucoup 
d'astuces lui permettant de résoudre le problème le plus 
rapidement possible en un minimum d'algorithmes. Ainsi une 
bonne analyse mathématique évite bien du travail. En effet 
pour calculer la somme des N premiers nombres entiers posi- 
tifs, nul besoin d'une boucle, il suffit de savoir que 
S=N(N+1)/2 ... On aboutit alors à l'algorithme suivant : 

Algorithme somme N nbres entiers : titre algorithme 

entrer (N) : algo. prédéfini d'entrée 
somme <- N(N+1)/2 : affectation 
sortir (somme) : algo. prédéfini de sortie 


Les tabulations utlisées en algorithmique sont 
destinées à faire apparaitre clairement les blocs et les 
sous-blocs qu'ils contiennent. Ceci est particulièrement vrai 
lors d'alternatives multiples (voir plus loin), illisibles 
sans tabulations. Les règles de tabulations ne sont pas 
strictes, il s'agit simplement de rendre clair l'algorithme à 
la lecture. Aussi, point de nombre de blanc imposé mais je 
vous invite oour chaque fonction a regarder l'illustration 
qui est faite tout au long de ces articles. 


D. Les tyves non standard 


En algorithmique (comme en Pascal) tous les objets 
manipulés doivent etre d'un ty0e bien défini c'est à dire 
fixé par l'utilisateur une fois pour toute. Cela peut parai- 
tre contraignant de orime abord mais nous allons voir tout de 
suite que cela présente un énorme avantage sur des langages 
“sous-évolués" comme les premiers basics. 


Parmis les types standard on a les entiers, les 
réels, les caractères. Pour ceux-ci, nul n'est besoin de 
spécifier qu'une variable sera d'un de ces types car cela 
sera sous-entendu. Par contre on orécisera le type booléen. 
Une variable de ce type prendra la valeur vrai ou la valeur 
faux. On voit tout de suite l'interet de ce tyve lors de 
test. 


Mais là où se situe l'innovation, c'est que 
l'utilisateur peut créer ses propres types. Voyons divers 
exemple. 


Vous voulez utiliser un variable E entière mais qui 
est toujours comprise dans l'intervalle 2 à 10. Nul n'est 
besoin de définir la variable comme de type entière, il 
suffit de créer le type INTERVALLE, intervalle de 2 à 10, qui 
sera le type de la variable. On peut procéder de la meme 
manière avec des variables réelles ou alphanumériques (carac- 
tères). De plus le compilateur vérifiera lors de l'exécution 
que la variable reste bien du type défini, c'est à dire reste 
dans l'intervalle. Eh oui, vous avez ainsi économisé 1 (ou 
plusieurs) test en cours de programme. 


Autre cas de figure, vous utilisez 5 variables qui 
sont des tableaux de n fois n nombres entiers. Au lieu de 
déclarer les variables une par une, il suffit de définir le 
type MATRICE qui est un tableau de n fois n nombres entiers 
et de déclarer les variables comme du type MATRICE. 


Vous désirez aussi utiliser une chaine de 20 carac- 
tères. Il suffit de définir une type CHAINE qui est en fait 
un tableau d'une ligne à 20 colonnes. 


Enfin vous traitez des mois de l’année. Pourquoi ne 
pas créez un type MOIS ? 


Tous ces définitions se présentent alors sous la forme : 
Algorithme trucmuche 
n<-100 : il faut fixer n quelque part 
type : définition des types 
INTERVALLE = 2..10 
MATRICE = tableau(i..n,1..n) d'entiers 
CHAINE = tableau(1..20) de caractères 
MOIS = Janvier ,Février ,etc...,.Décembre 
var : déclaration des objets 
TEST : BOOLEEN 
E : INTERVALLE 
: MATRICE 
: MATRICE 
: MATRICE 
: MATRICE 
: MATRICE 
M : CHAINE 
DATE : MOIS 


A 
B 
C 
D 
F 
NO 


Remarque : diverses fonctions sont oossibles sur les interva- 
1les. ex : dim(MOIS)=12; dans INTERVALLE 2<4 et 6>3 mais aussi 
précesseur (5)=4 et sucesseur(7)=8;de meme dans MOIS Jan- 
vier<Février et Novembre>Octobre mais aussi préces- 
seur (Mars)=Février et sucesseur (Juillet)=Aout. Essayez donc 
de faire les memes fonctions en basic... 


E. La structure alternative 
On distingue deux types d'alternatives : 
*# L'alternative simole * 


SI (condition) ALORS (bloc d'instructions 1) 
SINON (bloc d'instructions 2) 


La condition est une expression logique. 


Dans le cas d’une variable boolléenne : 
SI test ALORS bloc <=> SI test=vrai ALORS bloc 


SINON bloc SINON bloc 
SI non(test) ALORS bloc <=} SI test=faux ALORS bloc 
SINON bloc SINON bloc 


La directive SINON est obligatoire; dans le cas où il n'y a 
rien faire si la condition n'est pas vérifée on écrira : 
SI (condition) ALORS (bloc d'instructions 1) 
SINON rien 
où rien est un algorithme prédéfini qui ne fait rien !!! 


Algorithme conversion décimal-binaire sur 2 bits 
entrer (d) 
si (d=0) alors b <- 0 


sinon 
si (d=1) alors b <- 1 
sinon 
si (d=2) alors b<- 10 


sinon 
si (d=3) alors b <- 11 
sinon b <- -1 
si (b=-1) alors sortir (‘dépassement capacité’) : ‘<=)"basic 
sinon sortir (b) 


* L'alternative multiole * 


AU CAS OU 

condition 1 : (bloc d'instructions 1) 
condition 2 : (bloc d'instructions 2) 
condition n : (bloc d'instructions n) 
SINON : (bloc d'instructions n+1) 


Les conditions 1 à n sont des expressions logi ques: dans le 
cas où aucune des n conditions n'est vérifiée (SINON),. on 
effectue le bloc n+1. 


Dans le cas d'une variable booléenne : 
AU CAS OÙ test : bloc <=> AU CAS OÙ test=vrai : bloc 
AU CAS OÙ non(test) : bloc <=> AU CAS OÙ test=faux : bloc 


La directive SINON est obligatoire. 


La structure AU CAS OÙ est équivalente à l'imbrication de 
plusieurs structures SI ALORS SINON : 
SI condition 1 
ALORS (bloc d'instructions 1) 
SINON SI condition 2 
ALORS (bloc d'instructions 2) 
SINON SI condition 3 
ALORS 


ALORS SI condition n 
ALORS (bloc d'instructions n) 
SINON (bloc d'instructions n+1) 


Algorithme conversion décimal-binaire sur 2 bits 
entrer (d) 
au cas où : 


d=0 : b<- 0 
d=i : b<-1 
d=2 : b <- 10 
d=3 : b <- 11 


* sinon : b <- -1 
au cas où : 
b=-1 : sortir (‘dépassement capacité‘) 
sinon : sortir (b) 
F. Les structures itératives 


3 types d’itérations sont possibles : 


#* La répétition avec compteur * 


Similaire à celle du basic elle se orésente sous la 
forme : 
incrémentation : POUR compteur DANS intervalle 
FAIRE (bloc d'instructions) 
décrémentation : POUR compteur DANS intervalle INVERSE 
FAIRE (bloc d'instructions) 


raopel :#*intervalle=(min..max); les valeurs de min et max ne 
doivent pas etre modifiées par l'exécution du bloc d'ins- 
tructions. s 

*compteur est l'identificateur d'une variable de type 
ordinal T: l'exécution du bloc d'instructions ne doit pas 
modifier la valeur de compteur. 

*le bloc d'instructions est exécuté n=(max- 
min+i)fois. 


Bien que possible, cette répétition avec compteur 
sera rarement utilisé car elle ne réoond vas aux critères de 
la programmation défensive. Les conceoteurs de PASCAL se sont 


d'ailleurs demandé s'ils devaient où non l'inclure dans 
leur langage. 


* La répétition avec controle à la fin * 
REPETER (bloc d'instructions) JUSQU'A (condition) 
La condition est une expression logique. 


Le bloc d'instructions est répété tant que la condition n'est 
pas vérifiée; il est toujours exécuté au moins une fois. 


La condition peut etre toujours vérifiée: dans ce cas, le 
bloc est exécuté une seule fois. 


Attention !!! La condition peut ne jamais etre vérifiée: dans 
ce cas l'exécution du bloc se poursuit indéfiniment !!!... 


Algorithme factorielle den 
entrer (‘n=7°,n) 
fact<-1 
REPETER fact<-fact#n 
n<-n-1 
JUSQU'A (n<=1) 
sortir (’n!=",fact) 


*# La répétition avec controle à la fin * 
TANT QUE (condition) EXECUTER (bloc d'instruction) 
La condition est une expression logique. 


Le bloc d'instructions est répété tant que la condition reste 
vérifiée. 


La condition peut ne jamais etre vérifiée: dans ce cas le 
bloc ne sera jamais exécuté. 


Attention !!! La condition peut etre toujours vérifiée; dans 
ce cas, l'exécution du bloc se poursuit indéfiniment !!!... 


Remarque : la structure REPETER JUSQU'A est équivalente à : 
oc d'instructions 1 
TANT QUE non(condition) EXECUTER (bloc d'instructions 1) 


Algorithme racine carrée entière 


entrer (a) 

r<-0 

y<-1 

z<-1 

TANT QUE (y<=a) EXECUTER z<-2+2 
v<-v+z 
r<-r+i 


! 
racine<-r 
sortir (racine) 


Ici se termine cette deuxiéme partie des articles sur 
l'écriture algorithmique. La prochaine fois nous verrons les 
variables globales et locales, les procédures et fonctions, 
la récursivité. Mais afin que vous ne ennuyez pas je vous 
propose la recherche des algorithmes répondant aux cahiers 
des charges suivants : 


1°) Recherche du PGCD de 2 nombres entiers 
Utiliser l'algorithme d'Euclide (TANT QUE..EXECUTER). 


2°) Recherche des racines d’une équation du second degré 
Utiliser les structures SI ALORS SINON et AU CAS OU SINON. 


3°) Recherche dichotomique 

On dispose d'un tableau de nombres entiers rangés dans 
l'ordre croissant. On veut savoir si un nombre donné 5e 
trouve dans le tableau : s’il ne s'y trouve pas on l'inclut 
dans le tableau et on détermine son rang : s'il s'y trouve, 
on détermine son rang. 


4°) Racine carrée 
Calculer la racine carrée entière d'un nombre positif en 
utilisant une structure TANT QUE..EXECUTER. 


5°) Réservation SNCF (ou autre pour nos amis européens) 

On dispose de 60 places assises dont 20 fumeurs. Ecrire 
l'algorithme permetttant de réserver une place, annuler une 
réservation, arréter les réservations par la méthode de votre 
choix. 


BON COURAGE !!! 
Philiope Casier, membre de DCA 


3iter rue de Paris 
92190 Meudon 


INVMAT 


Le sous programme très court (moins de 500 octets) 
nommé INVMAT a l'avantage d'inverser toute matrice carrée 
dont la dimension n'excède pas 62. La technique utilisée est 
très simple et est connue sous le nom de “méthode par 
recherche de pivot". Pour l'utiliser, il faut charger le 
sous-programme INVMAT (ligne 10000 et plus), dimensionner un 
tableau A(N,2#N) où N est la dimension, placer la matrice 
dans la partie A(OàN,OàN) et faire GOSUB 10000. La matrice 
inversée se trouve dans la partie A(OàN,N+1à2%N). 


Tout ceci est très simple à utiliser. Parlons 
maintenant des performances. Vous pouvez juger de la raoidité 
de INVMAT en calculant le temps d'inversion de votre matrice 
par la formule : 

t(s)=N2# (0. 14+0.0285 (N-2) ) 
ce qui donne une demi seconde pour une matrice 2*2, Ss pour 
une matrice 5*5, 36s pour une matrice 10#10, 263s (4°23) pour 
une matrice 20*20 et 25° pourla matrice maxi 62*62 (prévoir 


CLEAR 32500). 
Si vous avez doté votre DAI d’une extension RAM de 
4Mo vous pouvez alors inverser la reine des matrices, la 


matrice 1000#1000 en ... 11 mois ... 


H. Samain, membre de DCA 
13 rue du Loup pendu 


91570 Bievres 


9998 REM INVERSION DE MATRAICE (DIM MAX=62) PAR H.SAMAIN POUR D.C.A. 
9999 AEM DIMENSIONNEZ A(N,2#N) OU N EST LA DIM DE LA MATRICE A INVERSER 
10000 FOR I!=N!1+1.0 TO 2.0#N!:AI(II-NI,I!)=1.0:NEXT I! 

10010 FOR J!=1.0 TO N!:PIVOT!I=0.0:FOR Il=J! TO N! 

10020 IF ABS(AI(I!,J!))>PIVOTI THEN 10040 

10030 GOTO 10050 

10040 X!I=I!:PIVOT!=ABS(AI(I!,J1!)) 

10050 NEXT I! 

10060 IF PIVOT!=0.0 THEN PAINT "MATAICE SINGULIERE" : RETUAN 

10070 FOR K!=J! TO 2.0#N!:A!=AI(J!,K!):B!=AI(CX!,K!):A!I(J!,K!)=B1: 


AICX!,K!I)=A!: NE XT ki 


10080 VI=AI(J!,J!) 
10090 FOR Ki=J! T0 2.0#N!1:AI(J!I,KI)=A!(J!,K!)/VI:NEXT K! 


10100 FOR K!=1.0 TO N!:IF K!=J! THEN 10130 

10110 ZI=AICK!,J1) 

10120 FOR Li=Ji TO 2.0#N1:AICKI,L!I)=AICKI,LI)-AICUI,LI)#Z!:NEXT L! 
10130 NEXT K! 

10140 NEXT J! 

10150 RETURN 
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Résumé des logiciels proposés par certains membres 


Les prix indiqués correspondent à la version K?7 audio , à 
laquelle il faut rajouter +35 FF si-vous désirez une version 
OCR ou Disquette. 


Les frais d'envoi sont compris. 
Envoyez vos demendes à s 
#*## Version K7 audio , Ken-Dos et DCA 
I1.0.C.Bordeaux s/c DELANNAY Bruno 
Res. Les ACACIAS Bt. 83 

Avenue de SAIGE 

33600 PESSAC 

FRANCE 

### Version VC 1541 D0S allemand 
D.C.A. s/c D'’ARANTES Luc 

Chemin Ste. Marie 

No 10.0 Res. Ste. Marie 

30200 BAGNOLS sur CEZE 

FRANCE 

N . 8 . 


Les logiciels que proposait l'ex DAlnamic sont toujours 


disponibles aux anciens tarifs ,ils sont trop nombreux pour 
pouvoir figurer dans ces pages , se reporter à la liste de 
la LOGITHEQUE , dans laquelle ils sont inclus et se 


renseigner directement à I.0.C.Bordeaux. 


J EE VU x : 
QUIX : Jeu agréable, en Language Machine, de Pascal Janin. 
Vous connaissez le jeu d'arcade STYX ? : il s’agit de 


remplir le plus rapidement possible une zone de l'écran. 
Livré avec un livret expliquant l'emploi des routines des 
SPAITES et du Paint et des musiques. : 150 FF 
Disponible aussi sur DCA ,VC 1541 et Ken Dos. 


OTHELLO : version classée 4me au concour de l'’Ordinateur 
Individuel il y a deux ans. Très belle présentation ,; un des 
meilleurs. De Christian Poels : 150 FF 


Disponible aussi sur DCR ,VC 1541 et Ken Dos. 


SUPERCASTEL : aventure en graphique dans un immense chateau 


de trois étages , des centaines de pièces !! des tas de 
monstres.Belle présentation ,un bon point d'humour , de A. 
SIP : 150 FF 


Disponible aussi sur DCR ,VC 1541 et Ken Dos. 

DAI-RUNNER : Une belle imitation du Lode Aunner sur Apple. 
Un très bon jeu , 50 niveaux de jeu !1! Par Mr. Stransky. 
Attention non diponible en Audio. Prix incluant les 35 FF 
supplémentaires du DCR ou de la disquette : 100 FF 


DAITONA : pilotez une voiture de course en toute sécurité,de 
Mr. Billot. : 100 FF 
Disponible aussi sur DCR ,VC 1541 et Ken Dos. 


UTILITAIRES 2 


EDITEUR DE DESSINS : un très bon logiciel d'aide au dessin , 
tout pour dessiner et corriger ,mixer deux couleurs d’un 


paint , utiliser les lettres ou une table de caractères que 
vous aurez redéfinis , bref tout pour plaire. 
Par Walter Costa. : 110 FF 


Disponible aussi sur DCA ,VC 1541 et Ken Dos. 


MAILING LIST : un bon fichier pour tenir à jour , corriger , 
imprimer , trier , éditer vos étiquettes etc... 

Par Christian Poels : 150 FF 
Disponible aussi sur DCR ,VC 1541 et Ken Dos. 


DAILINK : Allo ? pour communiquer avec tous les serveurs du 
monde ou entre deux DAI , à condition de posséder un modem 
bien sur ... , compatibilité des fichiers avec DAIWORDSTAR. 
Par Christian Poels : 150 FF 
Disponible aussi sur DCA ,VC 1541 et Ken Dos. 


DAITEXT V21 : bon traitement de texte adapté aux imprimantes 
au standard EPSON très original grace à ses possibilités 


télématiques intégrées permettant le transfert de ses 
fichiers textes par modem! 
Par Alain Mariatte : 150 FF 


Disponible aussi sur DCR ,VC 1541 et Ken Dos. 


COM : sans doute le meilleur programme de communication pour 
DAI , livré sur EPAOM en version DCR ou Ken Dos 
Par Eric Choppinet :250 FF 


DAIBASE II : un des meilleurs traitement de fiches sur DAI , 
qui reprend l'esprit des commandes du célèbrissime DBASE II. 


Attention non. diponible en Audio. Prix incluant les 35 FF 
supplémentaires du DCR ou de la disquette : 250 FF 


DISKWIFE : véritable éditeur de directory , indispensable à 
tout possesseur de Ken-Dos , permet essentiellement de 
1/ se balader dans les directory et modifier les paramètres. 
2/ faire automatiquement un fichier de toutes vos diquettes 
et retrouver très rapidement le titre recherché ! 
3/ imprimer en deux format les données du directory. 
4/ copier la piste O0 à l’abri en piste 41 et/ou 2 afin de 
pouvoir récupérer le contenu de la disquette si cette piste 
0 est détruite ! très utile Ken-Dos uniquement ! sur EPROM 
Par Xavier Drèze : 250 FF 


Attention ,; se reporter un peu plus loin pour ce programme 
pour les précisions à fournir lors de sa commande !1! 


MAXI-DIR : pour Ken Dos uniquement , garde tous les 
parametres des différents programmes de vos disquettes dans 
une disquette ‘catalogue’ qui vous permet essentiellement 

1/ de lister et/ou imprimer tout ou partie de ce catalogue 
selon des critères que vous définissez , des catégories 
propres aux fichiers Ken-Dos ou définies par vous!! 

2/ de récupérer les fichiers perdus grace aux indications 
des pistes et secteurs gardés en mémoire ! 

Par Didier Boiteau : 150 FF 


# # # 
Encore un nouveau programme ,réalisé par Mr. Boiteau , pour 


les heureux possesseurs de Ken-Dos qui veulent échanger des 
fichiers avec un I.B.M. ou compatible !! 


+ ++ ++ S: Ce DATI + + + 


Il vous permet 


-De transférer tous les fichiers DAI vers IBM.PC et tous 
les fichiers IBM.PC vers le DAI. 


-Les fichiers ASCII IBM sont compatibles avec FWP sur le DAI 
un utilitaire permet la transformation des fichiers FWP en 
DOTE (Daiwordstar) et un autre permet de transformer un 
fichier FWP en fichier ASCII assimilable pour un traitement 
de texte sur IBM... 


-Un même disque DAI peut contenir des fichiers Ken-Dos et 
IBM.PC. 


-La limite de transfert est de 256K octets ! Ce qui 
signifie que vous pouvez transférer sur disquette DAI tous 
les logiciels IBM les plus connus. 


-Les fonctions Ken-Dos (copy , rename , backup...) sont 
utilisables avec dés fichiers IBM.PC : vous pouvez par 
exemple , apres avoir recopié ‘’multiplan’ sur disquette 
Ken-Dos taper ‘COPY "OMULTIPLAN,2#" .,. et ça marche !! 


Ceci m’ammène à attirer votre attention sur l’utilisation de 
ce programme qui ne doit s’adresser qu’à des personnes 
désirant faire des copies de sauvegarde des ces programmes 
(valant plusieurs milliers de francs!) pour leur propre 
usage en respectant la loi sur les COPYRIGHTS 


Toute autre utilisation pourrait donner lieu à des 
poursuites et nous ne pouvons que trop vous mettre en garde 
contre de telles pratiques. 

Le prix de ce petit bijou est de 1SOFF tout compris. 


# L # 


Des versions toutes nouvelles du programme de Mr. Uwe 
Wienkop en trois versions différentes. 


Le meilleur traitement de fichier existant sur DAI , par 
l’auteur du non moins célébre traitement de texte pour DAI 
(le meilleur et celui qui sert pour la revue !!) : 


DAIWORDSTAR , d'accés gratuit 


+ ++ ++ SUPERBASE + 4 + 


2S0 FF tout compris 


# version DCA : en Français , ou Allemand 
# version Xbasic-ComDOS : en Allemand 


# version KEN-D0S : En Français , ou Allemand 


N.B. Les versions en Allemand seront néanmoins fournies avec 
un double mode d’emploi : Français et Allemand. 


Des articles Portant sur le codage des informations de 
Superbase suivront dans la revue. 


Les fichiers du Club sont gardés sur Ken-Dos grace à ce 
programme !! 


+ +, ++ DAIPAINT + ++ + 


Prix sur K7 audio = 1SO0OFF 


Un des meilleurs utilitaires de dessin, réunissant des 
possibilités jamais encore vues sur le DAi de mixages des 
couleurs avec dégradé automatique LE avec effet 
d’aerographe!! et bien entendu le tout accessible très 
facilement grace à son menu reprenant les principes des 
icones du Mac.! 

Réalisé par Bruno Cimbalnik. 


Dernière minute !1! pour les personnes désirant le programme 
DISK-WIFE pour KEN-00S et dont l’imprimante n’est pas au 
standard EPSON , doivent fournir avec leur demande d’achat 
les caractères de contrôle suivants s’ils veulent bénéficier 
des possibilités d’impression du directory 


# Passage en caractères condensés et retour à la taille 
normale. 


*#* Mot de contrôle du saut de page à trois lignes ou saut de 
page complet selon préférence. 


Demandes à adresser à s 


International DAI Club Bordeaux 
c/0 Bruno Delannay 

Res. Les ÂAcacias Bt.B3 

Avenue de Saige 

33600 PESSAC (FRANCE) 


POUR LES PROGRAMMES DISTRIBUES 


PAR DAINAMIC VOUS POUVEZ 
TOUJOURS PASSER PAR 1I-D-C.-Bx.- 
QUI SE CHARGERRA DE SATISFAIRE 


VOS DEMANDES 


sosososososososososososos 
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sosososososososososososos 


Cette rubrique est ouverte à ceux qui ont des questions à 
poser aux autres ou à ceux qui nous ont posé des questions 
auquelles nous n’avons pas su répondrel!! 


Mr. P. Verhoost, 89 Aue de l’école , 5158 DAVE, Belgique, 
désire entrer en contact avec tout utilisateur du X-D0S de 
N.P. Looije (Pays-Bas) , le plus rapidement possible. 


Mr. F.L.Mencière désirerait savoir comment, sur Ken-Dos, on 
peut charger en autostart ou avec un lanceur un programme en 
language machine descendant en RAM en dessous de #29B et qui 
doit être lancé par RAUN. Envoyer la réponse àI.D.C.Bordeaux 


Les utilisateurs de Ken-Dos voudraient entrer en contact 
avec les possésseurs de X-D06 qui ont pu mettre sur la même 
carte RAM les EPROMS du Ken-D0S (dans une 27128) et le 
X-00$, pour échanger entre Ken-Dos avec ou sans X-D0S. 
Envoyer la réponse à I.D.C.Bordeaux 


VC. 1541 - X-BUS : faites parvenir à Luc D'ARANTES D.C.A. 
tout ce que vous avez fait, écrit, traduit ,ou des 
explications sur ses défférentes possibilités en vue de la 
préparation d'articles sur ce système. 


Désires renseignements, programmes, pour relier DEUX DAI par 
la A6 232. But final : relier un DAI + Ken-Dos à un DAI + 
V.C. 1541 sans passer par un modem ... et les PTT (cher!). 
Documents à envoyer à Luc D’ARANTES. 

PERDU ! 
La logithéque du club se trouve amputée de certains 
logiciels suite à une fausse manip sur les disquettes de 
sauvegarde !1!1 
Aidez nous à la reconstituer et à l’enrichir 


recette (gestion et comptabilité) 
conquest of memory alpha (jeu de role I face 2 ) 


Envoyez. SVP votre secour à I.D0.C. Bordeaux !!1! 


PETITES ANNONCES 
ACHAT 


#*# Mr. Morin Claudius , 6 Aue Robert Houdin , 14000 Caen. 
Tel 31.85.15.32. 


ACHETE des K?7 DCA achat en nombre si prix intéressant. 
VENTES 


Beaucoup de persones pour brader leur matériel. Que ceux qui 
restent en profitent pour compléter leur configuration avec 
le périphérique désiré !! 


## Mr. Vandermeersch Marc, 17 Av. du Vert Bocage , B-1410 
Waterloo , Belgique. 


Vends pour DAI 2 Kits pour Basic V1.2 (3 eproms+adaptateur) 
1000 FB le Kit ainsi que 22 disquettes reprenant la quasi 
totalité des softs pour DAI en KENDOS 2 *# 80 Teck pour 3000 
F8. 


## Mr. D. Bollé, Streeklaan 2, B-3060 Bertem, Belgique 
Tel. 32/16/48.97.84 après 18h 30 
ou le W.E. 32/16/20.10.15 de 9h 30 à 17h 30. 


Vends : DAI + DCA+ TOS + Cables + Moniteur couleur Barco + 
Documentation. Ensemble pour +/- 35 000 FB 


++ Mr. Duluins Fabrice ,; 4 Allée Tour Aenard ,; B-1400 
Nivelles , Belgique. 


Vends : DAI + DCA + TOS + Cables + 6 K7 OCA + des Kilos de 
documentation . Prix à débattre. 


## Je suis un DAi de Septembre 84 en parfaite santé et 
je cherche un nouvel acquéreur sympathique, qui puisse 
continuer à m’aimer. Je ne suis pas cher : 3O0FF et en plus 
je suis fourni avec de nombreux programmes (une dizaine de 
K7), le manuel d'utilisation et des revues. 


Alors si tu veux passer d’agréables heures en ma compagnie, 
contactes : Cimbalnik Bruno , 12 Aue des Crêtes , 62118 
Biache St. Vaast. 


## Mr. D’Hsene Filip , 6 Bld. P.H. Spaak , 7900 Leuze en 
Hainaut , Belgique. 


Vends : DAI environ 2500 FF Avec Basic V1.2 et V1.2 Ken Dos 
2*800K octets “  38.000FB soit environ 6.400 FF. Ou 
l’ensemble pour 8.90O0FF 


Pour tout achat de l’ensemble , donne collection compléte 
des Dainamic , Daiclics ,Firmware Manual et 35 disquettes de 
programmes. 


## Mr. Rouan Jean Claude , 3 Aue de la Fontaine St. Gervais 
60300 Aumont en Halatte 


Vends un Firmware Manual 


#+# Mr. Mencière F.L. , CORMICY, 51220 Hermonville, France 
tel: 26.61.30.25 


Vends Floppy DAI 2x80K en panne mais réparable : 1000FF 
Floppy DAI 2x320K en parfait état de marche, avec disquette 
D0S 2.0 et 2.1 : 45SO0FF 

DAI P.C. 1980, parfait état de marche 1500FF) 

Manuel d'utilisation du DAI , neuf : 60FF 


ATTENTION ! ! 
Un réparateur de DAI sur PARIS !! contacter 
Mr. LEBLOND M. Tel : 69.96.02.51 


12 Aue de Morsang 
91600 Savigny/ Orge 


ou C/0 I.G.I. Tel : 45.31.11.19 
10 Aue (illisible !1!) ( Louis Ricat ??) 
275015 Paris 
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